home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / allfiles / tokyo / east.dir / 00012_Script_runEast < prev    next >
Text File  |  1999-04-26  |  718b  |  34 lines
  1. global sndList, sndCount, chanNum, maxSnd
  2. global Esnd, Ecounter, EsprtList
  3.  
  4. on exitFrame
  5.   echo
  6.   east
  7.   rightArrow
  8.   exitMovie
  9.   go the frame
  10. end
  11.  
  12.  
  13. on mouseup
  14.   if not(rollover(43)) or not(rollover(37)) then 
  15.     setat EsprtList, Ecounter-8, new(script "eastBirth", Ecounter, Ecounter+492)
  16.     set Ecounter=Ecounter+1
  17.     if Ecounter=19 then set Ecounter=9
  18.     updatestage
  19.   end if
  20. end
  21.  
  22. on mousedown
  23.   put string(getat(Esnd, random(8))) into line sndCount of sndList
  24.   sound playfile, chanNum, the pathname & line sndCount of sndlist
  25.   set chanNum=chanNum+1
  26.   if chanNum=9 then set chanNum=2
  27. end
  28.  
  29.  
  30. on keydown
  31.   if ( (the key = "q") or (the key = "Q") ) then
  32.     play done
  33.   end if
  34. end